home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / Me-Mz / Memory Tools.cpt / Memory Tools / background_2630.txt < prev    next >
Text File  |  1989-01-07  |  7KB  |  314 lines
  1. -- background: 2630 from stack: in
  2. -- bmap block id: 13177
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: 
  6. ----- HyperTalk script -----
  7.  
  8. on arrowkey
  9.   visual effect wipe left
  10.   go next card of this background
  11. end arrowkey
  12.  
  13.  
  14.  
  15.  
  16. -- part 1 (field)
  17. -- low flags: 00
  18. -- high flags: 2007
  19. -- rect: left=0 top=20 right=342 bottom=428
  20. -- title width / last selected line: 0
  21. -- icon id / first selected line: 0 / 0
  22. -- text alignment: 0
  23. -- font id: 3
  24. -- text size: 9
  25. -- style flags: 0
  26. -- line height: 12
  27. -- part name: DASM
  28.  
  29.  
  30. -- part 2 (button)
  31. -- low flags: 00
  32. -- high flags: 8000
  33. -- rect: left=442 top=285 right=333 bottom=503
  34. -- title width / last selected line: 0
  35. -- icon id / first selected line: 17155 / 17155
  36. -- text alignment: 1
  37. -- font id: 0
  38. -- text size: 12
  39. -- style flags: 0
  40. -- line height: 16
  41. -- part name: PopUp Menu
  42. ----- HyperTalk script -----
  43. on mouseDown
  44.   set the icon of me to 8215
  45.   put the mouseloc into myplace
  46.   put item 1 of myplace into horiz
  47.   put item 2 of myplace into vert
  48.   get PopUpMenu ("Memory;Traps;Peek;Dump;Clear;New Card;Save As Text;Help" ,9,vert-45,horiz)
  49.   put it into choice
  50.  
  51.   if choice is 1 then domemory
  52.   if choice is 2 then dotraps
  53.   if choice is 3 then dopeek
  54.   if choice is 4 then dodump
  55.   if choice is 5 then doclear
  56.   if choice is 6 then domenu "New Card"
  57.   if choice is 7 then savefile
  58.   if choice is 8 then click at the loc of bg button "help"
  59.   set the icon of me to 17155
  60. end mouseDown
  61.  
  62. on savefile
  63.   put NewFileName("Save Data As ","") into SaveFileName
  64.  
  65.   if SaveFileName is empty then
  66.     play "boing"
  67.     exit savefile
  68.   end if
  69.  
  70.   open file SaveFileName
  71.   write field "dasm" to file SaveFileName
  72.   close file SaveFileName
  73. end savefile
  74.  
  75. on doclear
  76.   answer "Really Clear Disassembly Field?" with "Yes" or "No"
  77.   if it is "No" then exit doclear
  78.   put empty into field "dasm"
  79. end doclear
  80.  
  81. on domemory
  82.   ask "Starting Address "
  83.   if it is empty then exit domemory
  84.   put it into current
  85.   put Dectohex(Hextodec(current)+300) into temp
  86.   Ask "Ending Address " with temp
  87.   put hextodec(it) into enddasm
  88.   show field "dasm"
  89.   put return & dectohex(hextodec(current)) after field "dasm"
  90.   set the scroll of field "dasm" to 0
  91.   put 0 into nlines
  92.   put 0 into i
  93.   set the cursor to 4
  94.   repeat until hextodec(current)>enddasm
  95.  
  96.     put disasm(current,L,L) after field "dasm"
  97.     put last word of field "dasm" into current
  98.     add 1 to i
  99.     add 8 to nlines
  100.     if i=3 then
  101.       put 0 into i
  102.       set the scroll of field "dasm" to nlines*textheight of field "dasm"
  103.     end if
  104.  
  105.   end repeat
  106.   set the scroll of field "dasm" to 0
  107.   set the cursor to 1
  108. end domemory
  109.  
  110. on dotraps
  111.   ask "Which Trap "
  112.   if it is empty then exit dotraps
  113.  
  114.   put trapword(it) into tnumber
  115.   put trapname(tnumber) into tname
  116.   if tname is "error" then
  117.     play "boing"
  118.     put "Bad Trap Name"
  119.     exit dotraps
  120.   end if
  121.  
  122.   put dectohex(hextodec(trapadr(tnumber))) into current
  123.   put hextodec(current)+300 into enddasm
  124.   set cursor to 4
  125.   show field "dasm"
  126.   put tname & return after field "dasm"
  127.   put current after field "dasm"
  128.   set the scroll of field "dasm" to 0
  129.   put 0 into nlines
  130.   put 0 into i
  131.   set the cursor to 4
  132.  
  133.   repeat until hextodec(current)>enddasm
  134.     put disasm(current,L,L) after field "dasm"
  135.     put last word of field "dasm" into current
  136.     add 1 to i
  137.     add 8 to nlines
  138.     if i=3 then
  139.       put 0 into i
  140.       set the scroll of field "dasm" to nlines*textheight of field "dasm"
  141.     end if
  142.  
  143.   end repeat
  144.   set the scroll of field "dasm" to 0
  145.   set cursor to 1
  146. end dotraps
  147.  
  148. on dopeek
  149.   ask"Address "
  150.   if it is empty then exit dopeek
  151.   put it into temp
  152.   --put peeklong(temp)
  153.   answer "("& temp &") = " &  peeklong(temp) && "(long)"  with "Ok"
  154. end dopeek
  155.  
  156. on dodump
  157.   set scroll of field "dasm" to 0
  158.   ask "Dump From Where "
  159.   if it is empty then exit dodump
  160.   put it into Address
  161.   put return & Address after field "dasm"
  162.   set the cursor to 4
  163.   repeat with i=1 to 25
  164.     put string(Address,L,L) into temp
  165.  
  166.     put first line of temp & return after field "dasm"
  167.     put last word of temp into newadr
  168.     if newadr is "error" then exit dodump
  169.  
  170.     put dectohex(hextodec(newadr)) into Address
  171.     put Address after field "dasm"
  172.  
  173.   end repeat
  174.  
  175.  
  176. end dodump
  177.  
  178. on monitor
  179.   global globaladdress,watchflag
  180.   if globalAddress is not empty then
  181.     put empty into globaladdress
  182.     put 0 into watchflag
  183.     hide field "watch"
  184.     show menubar
  185.     exit monitor
  186.  
  187.   end if
  188.  
  189.   ask "Address "
  190.   if it is empty then exit monitor
  191.   put it into globalAddress
  192.   put 1 into watchflag
  193.   show field "watch"
  194.   hide menubar
  195. end monitor
  196.  
  197.  
  198.  
  199.  
  200. -- part 3 (field)
  201. -- low flags: 80
  202. -- high flags: 0004
  203. -- rect: left=257 top=1 right=17 bottom=382
  204. -- title width / last selected line: 0
  205. -- icon id / first selected line: 0 / 0
  206. -- text alignment: 0
  207. -- font id: 3
  208. -- text size: 9
  209. -- style flags: 0
  210. -- line height: 12
  211. -- part name: watch
  212.  
  213.  
  214. -- part 6 (button)
  215. -- low flags: 00
  216. -- high flags: A000
  217. -- rect: left=434 top=91 right=138 bottom=480
  218. -- title width / last selected line: 0
  219. -- icon id / first selected line: 30557 / 30557
  220. -- text alignment: 1
  221. -- font id: 0
  222. -- text size: 12
  223. -- style flags: 0
  224. -- line height: 16
  225. -- part name: Options
  226. ----- HyperTalk script -----
  227. on mouseUp
  228.   Visual effect iris close slowly
  229.   go card "options"
  230. end mouseUp
  231.  
  232.  
  233.  
  234. -- part 7 (button)
  235. -- low flags: 00
  236. -- high flags: 2000
  237. -- rect: left=484 top=99 right=122 bottom=506
  238. -- title width / last selected line: 0
  239. -- icon id / first selected line: 26635 / 26635
  240. -- text alignment: 1
  241. -- font id: 0
  242. -- text size: 12
  243. -- style flags: 0
  244. -- line height: 16
  245. -- part name: Help
  246. ----- HyperTalk script -----
  247. on mouseUp
  248.   visual effect iris open
  249.   push card
  250.   go card "help"
  251. end mouseUp
  252.  
  253.  
  254.  
  255. -- part 8 (button)
  256. -- low flags: 00
  257. -- high flags: 2000
  258. -- rect: left=492 top=20 right=36 bottom=509
  259. -- title width / last selected line: 0
  260. -- icon id / first selected line: 16560 / 16560
  261. -- text alignment: 1
  262. -- font id: 0
  263. -- text size: 12
  264. -- style flags: 0
  265. -- line height: 16
  266. -- part name: New Button
  267. ----- HyperTalk script -----
  268. on mouseUp
  269.   if the number of cards of this bg is 1  then
  270.     answer "No other disassemblies exist" with "Ok"
  271.     exit mouseup
  272.   end if
  273.  
  274.   go next card of this background
  275. end mouseUp
  276.  
  277.  
  278.  
  279. -- part 9 (button)
  280. -- low flags: 00
  281. -- high flags: 2000
  282. -- rect: left=428 top=20 right=35 bottom=451
  283. -- title width / last selected line: 0
  284. -- icon id / first selected line: 15420 / 15420
  285. -- text alignment: 1
  286. -- font id: 0
  287. -- text size: 12
  288. -- style flags: 0
  289. -- line height: 16
  290. -- part name: New Button
  291. ----- HyperTalk script -----
  292. on mouseUp
  293.   if the number of cards of this bg is 1  then
  294.     answer "No other disassemblies exist" with "Ok"
  295.     exit mouseup
  296.   end if
  297.   go prev card of this background
  298. end mouseUp
  299.  
  300.  
  301.  
  302. -- part 10 (button)
  303. -- low flags: 00
  304. -- high flags: C002
  305. -- rect: left=0 top=0 right=21 bottom=428
  306. -- title width / last selected line: 0
  307. -- icon id / first selected line: 0 / 0
  308. -- text alignment: 1
  309. -- font id: 0
  310. -- text size: 12
  311. -- style flags: 0
  312. -- line height: 16
  313. -- part name: Disassembly Field                   
  314.